home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Learning Director.dcr / UtilsCast_1_MS_Globals.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  1.3 KB  |  49 lines
  1. global gglobals
  2.  
  3. on SG globalSymbol, val
  4.   if voidp(gglobals) then
  5.     set gglobals to [:]
  6.   end if
  7.   if not symbolp(globalSymbol) then
  8.     alert("Bad global name" && string(globalSymbol))
  9.     halt()
  10.   end if
  11.   if voidp(val) then
  12.     deleteProp(gglobals, globalSymbol)
  13.   else
  14.     setaProp(gglobals, globalSymbol, val)
  15.   end if
  16. end
  17.  
  18. on CG globalSymbol
  19.   if voidp(gglobals) then
  20.     set gglobals to [:]
  21.   end if
  22.   if not symbolp(globalSymbol) then
  23.     alert("Bad global name" && string(globalSymbol))
  24.     halt()
  25.   end if
  26.   deleteProp(gglobals, globalSymbol)
  27. end
  28.  
  29. on GG globalSymbol
  30.   if voidp(gglobals) then
  31.     set gglobals to [:]
  32.   end if
  33.   return getaProp(gglobals, globalSymbol)
  34. end
  35.  
  36. on ResetGlobals
  37.   set gglobals to getaProp([:], 1)
  38. end
  39.  
  40. on void
  41.   return getaProp([:], 1)
  42. end
  43.  
  44. on VOlist
  45.   global gFirstList, gLastList
  46.   set gFirstList to [0: " intro.a.AIF", 1: "01.a.AIF", 2: "02.a.AIF", 3: "03.a.AIF", 4: "04.a.AIF", 5: "05.a.AIF", 6: "06.a.AIF", 7: "07.a.AIF", 8: "08.a.AIF", 9: "09.a.AIF", 10: "10.a.AIF", 11: "11.a.AIF", 12: "concl.a.AIF"]
  47.   set gLastList to [0: " intro.g.AIF", 1: "01.08b.AIF", 2: "02.11.AIF", 3: "03.15.AIF", 4: "04.09.AIF", 5: "05.14.AIF", 6: "06.10.AIF", 7: "07.10b.AIF", 8: "08.07.AIF", 9: "09.08.AIF", 10: "10.06b.AIF", 11: "11.09.AIF", 12: "concl.e.AIF"]
  48. end
  49.